How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/AZTECW.DIR/01705_Script_Sickness

Text File | 1995-09-12 | 9KB | 333 lines

global gQuest, gBeenClicked

on ASickRollovers1
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(12) or rollover(13) or rollover(14) then
      ArrowCursor
      repeat while rollover(12) or rollover(13) or rollover(14)
        set the locH of sprite 15 to 362
        set the locV of sprite 15 to 256
        set the locH of sprite 16 to 93
        set the locV of sprite 16 to 288
        set the locH of sprite 17 to 535
        set the locV of sprite 17 to 336
        updatestage
      end repeat
      set the locH of sprite 15 to 962
      set the locH of sprite 16 to 993
      set the locH of sprite 17 to 935
      updatestage
    else
      if rollover(11) then
        repeat while rollover(11)
          AztecCursor
          puppetsprite 47, true
          set the locH of sprite 47 to 475
          set the locV of sprite 47 to 216
          updatestage
          if the mousedown then
            removeBathHouse
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              repeat while gBeenClicked = 1
                set the locH of sprite 47 to 975
                updatestage
                AnimateLoop 3, 662, 3, "SA340300.AIF", 3
                replacebathhouse
              end repeat
            end if
          end if
        end repeat
        set the locH of sprite 47 to 975
        updatestage
        puppetsprite 47, false
        replacebathhouse
      else
        if rollover(9) or rollover(10) then
          repeat while rollover(9) or rollover(10)
            AztecCursor
            if the mousedown then
              set GBeenClicked = 1
            else
              if gBeenClicked = 1 then
                repeat while gBeenClicked = 1
                  AnimateMudBath
                end repeat
              end if
            end if
          end repeat
        else
          if rollover(40) then
            HandCursor
          else
            if rollover(41) then
              HandCursor
            else
              if rollover(42) then
                HandCursor
              else
                ArrowCursor
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on ASickRollovers2
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) or rollover(7) then
      repeat while rollover(6) or rollover(7)
        AztecCursor
        puppetsprite 9, true
        set the locH of sprite 9 to 161
        set the locV of sprite 9 to 217
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            repeat while gBeenClicked = 1
              MedicineDoctor
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 9 to 961
      puppetsprite 9, false
      updatestage
    else
      if rollover(10) then
        ArrowCursor
        repeat while rollover(10)
          set the locH of sprite 11 to 232
          set the locV of sprite 11 to 336
          updatestage
        end repeat
        set the locH of sprite 11 to 932
        updatestage
      else
        if rollover(12) then
          ArrowCursor
          repeat while rollover(12)
            set the locH of sprite 13 to 473
            set the locV of sprite 13 to 312
            updatestage
          end repeat
          set the locH of sprite 13 to 973
          updatestage
        else
          if rollover(39) then
            HandCursor
          else
            if rollover(41) then
              HandCursor
            else
              if rollover(42) then
                HandCursor
              else
                ArrowCursor
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on MedicineDoctor
  ArrowCursor
  set gAnimationcast1 = 685
  set gAnimationcast2 = 689
  set count = 0
  puppetsound "SA340202.AIF"
  repeat while count < 2 and (the mouseUp)
    set the castnum of sprite 6 = gAnimationcast1 + 1
    updatestage
    wait .5
    if (the mousedown) then
      exit repeat
    end if
    set the castnum of sprite 6 = gAnimationcast1 + 2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .5
    set the castnum of sprite 6 = gAnimationcast1 + 3
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .5

    set the castnum of sprite 6 = gAnimationcast1 + 2
    set the castnum of sprite 7 = gAnimationcast2 + 1
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2

    set the castnum of sprite 6 = gAnimationcast1 + 1
    set the castnum of sprite 7 = gAnimationcast2 + 2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .5
    set the castnum of sprite 6 = gAnimationcast1 + 2
    set the castnum of sprite 7 = gAnimationcast2 + 1
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 6 = gAnimationcast1 + 3
    set the castnum of sprite 7 = gAnimationcast2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 6 = gAnimationcast1 + 2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .5
    set the castnum of sprite 6 = gAnimationcast1
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .5
    set count = count + 1
  end repeat
  set the castnum of sprite 6 = gAnimationcast1
  set the castnum of sprite 7 = gAnimationcast2
  updatestage
  sound fadeout 1, 2*60
  set gBeenClicked = 0
end

on AnimateMudBath
  ArrowCursor
  set gAnimationcast1 = 666
  set gAnimationcast2 = 675
  set count = 0
  puppetsound "SA340302.AIF"
  repeat while count < 2 and (the mouseUp)
    set the castnum of sprite 9 = gAnimationcast1 + 1
    set the castnum of sprite 10 = gAnimationcast2 + 1
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if
    set the castnum of sprite 9 = gAnimationcast1 + 2
    set the castnum of sprite 10 = gAnimationcast2 + 2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 9 = gAnimationcast1 + 3
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2

    set the castnum of sprite 9 = gAnimationcast1 + 4
    set the castnum of sprite 10 = gAnimationcast2 + 3
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2

    set the castnum of sprite 9 = gAnimationcast1 + 5
    set the castnum of sprite 10 = gAnimationcast2 + 2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 9 = gAnimationcast1 + 6
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 9 = gAnimationcast1 + 6
    set the castnum of sprite 10 = gAnimationcast2 + 1
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 9 = gAnimationcast1 + 7
    set the castnum of sprite 10 = gAnimationcast2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 9 = gAnimationcast1 + 8
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 9 = gAnimationcast1
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set count = count + 1
  end repeat
  set the castnum of sprite 9 = gAnimationcast1
  set the castnum of sprite 10 = gAnimationcast2
  updatestage
  sound fadeout 1, 2*60
  set gBeenClicked = 0
end


on ResetFlowers
  set the locH of sprite 15 to 862
  set the locH of sprite 16 to 873
  set the locH of sprite 17 to 835
  puppetsprite 15, false
  puppetsprite 16, false
  puppetsprite 17, false
  updatestage
end


on removeBathHouse
  puppetsound "SA340301.AIF"
  updatestage
  wait .5
  puppetsprite 4, true
  set the locH of sprite 4 to 800
  updatestage
end

on replaceBathHouse
  set the locH of sprite 4 to 328
  set the locV of sprite 4 to 226
  puppetsprite 4, false
  updatestage
end